## [1] "After population data extraction, 2 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam"

Country Rankings

Totals

Top 10 Countries - Total Deaths
Country_Region Deaths
United States 217692
Brazil 152460
India 112161
Mexico 85285
United Kingdom 43293
Italy 36372
Peru 33577
Spain 33553
France 32876
Iran 29605
Colombia 28457
Argentina 25342
Russia 23350
South Africa 18309
Chile 13434
Ecuador 12306
Indonesia 12268
Belgium 10327
Iraq 10086
Germany 9739
Top 10 Countries - Total Weighted Deaths
Country_Region Weighted_Deaths
San Marino 1e-03
Peru 1e-03
Belgium 1e-03
Andorra 1e-03
Bolivia 1e-03
Brazil 1e-03
Spain 1e-03
Ecuador 1e-03
Chile 1e-03
Mexico 1e-03
United States 1e-03
United Kingdom 1e-03
Italy 1e-03
Panama 1e-03
Moldova 1e-03
Sweden 1e-03
Colombia 1e-03
Argentina 1e-03
France 0e+00
North Macedonia 0e+00
Top 10 Countries - Total Weighted Confirmed
Country_Region Weighted_Confirmed
San Marino 0.023
Peru 0.026
Belgium 0.017
Andorra 0.041
Bolivia 0.012
Brazil 0.024
Spain NA
Ecuador 0.009
Chile 0.025
Mexico 0.007
United States 0.024
United Kingdom NA
Italy 0.006
Panama 0.029
Moldova 0.025
Sweden 0.010
Colombia 0.019
Argentina 0.021
France 0.012
North Macedonia 0.011

Increases

Top 10 Countries - Increase Weighted Deaths
Country_Region Increase_Weighted_Deaths
Argentina 0
Bahamas 0
Montenegro 0
Moldova 0
Czech Republic 0
Costa Rica 0
Peru 0
Belgium 0
Bosnia and Herzegovina 0
Romania 0
Brazil 0
Jamaica 0
Israel 0
Iran 0
Mexico 0
Colombia 0
Hungary 0
Spain 0
North Macedonia 0
South Africa 0
Top 10 Countries - Increase Weighted Confirmed
Country_Region Increase_Weighted_Confirmed
Vatican City 8e-03
Belgium 1e-03
San Marino 1e-03
Bahamas 0e+00
Armenia 0e+00
France 0e+00
Netherlands 0e+00
Argentina 0e+00
Slovenia 0e+00
Slovakia 0e+00
Luxembourg 0e+00
Switzerland 0e+00
Costa Rica 0e+00
North Macedonia 0e+00
Georgia 0e+00
Moldova 0e+00
Ireland 0e+00
Liechtenstein 0e+00
Jordan 0e+00
Bahrain 0e+00

Plots

Increases

CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
  JHplot_CountryLevel(CountryList,"Increase_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
  JHplot_CountryLevel(CountryList,"Increase_Weighted_Deaths_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
  JHplot_CountryLevel(CountryList,"Increase_Weighted_Confirmed_Avg_Avg")
## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)
p